home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue43 / alfresco / TstSel.dpr < prev   
Encoding:
Text File  |  1999-01-24  |  411 b   |  27 lines
  1. program TstSel;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils,
  7.   AASelect in 'AASelect.pas';
  8.  
  9. const
  10.   ItemCount = 20;
  11.  
  12. var
  13.   A : array [1..ItemCount] of integer;
  14.   i, j : integer;
  15.  
  16. begin
  17.   for i := 1 to 20 do begin
  18.     for j := 1 to ItemCount do
  19.       A[j] := j;
  20.     Shuffle(A, ItemCount, sizeof(integer));
  21.     for j := 1 to ItemCount do
  22.       write(A[j]:3);
  23.     writeln;
  24.   end;
  25.   readln;
  26. end.
  27.